home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO003.dsk / DEMOS / HCOLOR.12.DEMO.bas < prev    next >
BASIC Source File  |  2012-02-16  |  2KB  |  32 lines
  1. 5  HOME 
  2. 10  FOR I = 768 TO 804
  3. 20  READ J: POKE I,J: NEXT I
  4. 30  DATA  01,00,04,00,13,13,13,13,13,13,13,04,248,31,31,31,31,31,31,04,104,13,13,13,13,13,13,04,248,31,31,31,31,31,31,04,00
  5. 40  POKE 232,0: POKE 233,3
  6. 50  SCALE= 1: ROT= 0
  7. 60 X = 9:Y = 10: HGR2 
  8. 70 S = 7:T = 7:Z = 0: GOSUB 200
  9. 80 S = 3:T = 7:Z = 0: GOSUB 200
  10. 90 S = 3:T = 3:Z = 0: GOSUB 200
  11. 100 S = 3:T = 7:Z = 1: GOSUB 200
  12. 110 S = 7:T = 7:Z = 0:X = X +1: GOSUB 200
  13. 120 S = 3:T = 3:Z = 1: GOSUB 200
  14. 130 S = 3:T = 7:Z = 0: GOSUB 200
  15. 140 S = 3:T = 3:Z = 0: GOSUB 200
  16. 150 S = 7:T = 7:Z = 1: GOSUB 200
  17. 160 S = 7:T = 3:Z = 1:X = X +1: GOSUB 200
  18. 165  HPLOT 230,5 TO 230,186 TO 247,186 TO 247,5: HPLOT 231,185 TO 231,5 TO 246,5 TO 246,185
  19. 170  FOR I = 5 TO 186: HPLOT 253,I TO 268,I: NEXT I
  20. 180  GET A$: PRINT : TEXT : HOME : PRINT : PRINT "LIST LINES 300 TO 340 FOR AN EXPLANATION"
  21. 190  END 
  22. 200  FOR I = 1 TO 23
  23. 210  HCOLOR= S: DRAW 1 AT X,Y
  24. 220  HCOLOR= T: DRAW 1 AT X +Z,Y +1
  25. 230 Y = Y +8: NEXT I
  26. 240 X = X +22:Y = 10
  27. 250  RETURN 
  28. 300  REM <CTRL-J><CTRL-J>  EXPLANATION :-              --------------<CTRL-J><CTRL-J>
  29. 310  REM <CTRL-J>A SHAPE # 1 IS THIS (BUT WIDER, AND WITH ORIGIN AT   BOTTOM LEFT CORNER) :-     <CTRL-J><CTRL-J>    * * * * * * * * . . .   <CTRL-J>    * * * * * * * * . . .   <CTRL-J>    * * * * * * * * . . .   <CTRL-J>    * * * * * * * * . . .<CTRL-J>
  30. 320  REM <CTRL-J> THIS SHAPE IS DRAWN IN HCOLOR= S (3 OR 7 - WHITE), THEN DRAWN AGAIN IN HCOLOR= T (3 OR 7 - WHITE) ONE ROW  DOWN AND FOR SOME COLOURS,  ONE SPACE TO THE RIGHT.<CTRL-J>
  31. 330  REM <CTRL-J> FOR EACH COLOUR CHECK  COLOURS 'S' AND 'T', WHETHERX IS EVEN OR ODD, AND IF    COLOUR 'T' IS MOVED ONE UNITTO THE RIGHT (I.E. IF Z=1).<CTRL-J>
  32. 340  REM <CTRL-J> THE LEFT COLOUR, ORANGEIS LINE 70; THE RIGHT ONE,  PINK, IS LINE 160.  BLACK   AND WHITE MAKE THE 11TH AND 12TH COLOURS